home *** CD-ROM | disk | FTP | other *** search
/ Day Cry / Day Cry CD.bin / oh_towns / ippon / ippon04 / homing.bas next >
BASIC Source File  |  1994-09-20  |  3KB  |  81 lines
  1. 10000 '**********************************************************
  2. 10010 '    ùUô▒ÆeâTâôâvâïâvâìâOâëâÇ    by Makken
  3. 10020 '**********************************************************
  4. 10030 DEFINT A-Z : RANDOMIZE TIME
  5. 10040 SCREEN @1 : DEF SPRITE 99,0
  6. 10050 '************ âvâìâOâëâÇÆåé┼ùpéóéΘÆΦÉö
  7. 10060 MYSPEED=3 : 'Å╞ÅÇé╠ê┌ô«æ¼ôx
  8. 10070 BSPEED=3  : 'ùUô▒Æeé╠ê┌ô«æ¼ôx
  9. 10080 BMAX=32    : 'ùUô▒Æeé╠Åoî╗Éö
  10. 10090 SHIFT=64  : 'É╕ôxèmò█ùpé╔è|é»éΘÆl
  11. 10100 '************ özù±é≡ÉΘî╛
  12. 10110 DIM PTN%(16*16),BX(BMAX),BY(BMAX),BV(BMAX),BW(BMAX),BP(BMAX)
  13. 10120 '************ Å╞ÅÇê┌ô«é╔ùpéóéΘözù±é≡Åëè·ë╗
  14. 10130 FOR I=1 TO 8
  15. 10140   READ MV(I),MW(I)
  16. 10150 NEXT
  17. 10160 DATA 0,-1,1,-1,1,0,1,1,0,1,-1,1,-1,0,-1,-1
  18. 10170 '************ ùUô▒Æeé╠âpâ^ü[âôé≡ì∞éΘ
  19. 10180 FOR I=1 TO 8
  20. 10190 LINE(0,0)-(15,15),PSET,[0,0,0,1],BF
  21. 10200 CIRCLE(8+MV(I),8+MW(I)),2,[112,224,64],,,,F
  22. 10210 CIRCLE(8-MV(I),8-MW(I)),2,[176,240,96],,,,F
  23. 10220 GET@A(0,0)-(15,15),PTN%
  24. 10230 DEF SPRITE 0,I*4,PTN%,1
  25. 10240 NEXT
  26. 10250 '************ Å╞ÅÇé╠âpâ^ü[âôé≡ì∞éΘ
  27. 10260 LINE(0,0)-(15,15),PSET,[32,0,152],BF
  28. 10270 LINE(2,2)-(13,13),PSET,[0,0,0,1],BF
  29. 10280 LINE(0,4)-(15,11),PSET,[0,0,0,1],BF:LINE(4,0)-(11,15),PSET,[0,0,0,1],BF
  30. 10290 LINE(0,7)-(15,8),PSET,[255,255,255],BF
  31. 10300 LINE(7,0)-(8,15),PSET,[255,255,255],BF
  32. 10310 LINE(6,6)-(9,9),PSET,[0,0,0,1],BF
  33. 10320 GET@A(0,0)-(15,15),PTN%
  34. 10330 DEF SPRITE 0,0,PTN%,1
  35. 10340 '************ Åëè·É▌ÆΦ
  36. 10350 CLS : MX=120 : MY=112
  37. 10360 FOR I=1 TO 8
  38. 10370   MV(I)=MV(I)*MYSPEED : MW(I)=MW(I)*MYSPEED
  39. 10380 NEXT
  40. 10390 DEF SPRITE 1,0,(MX,MY),0
  41. 10400 FOR I=1 TO BMAX
  42. 10410   GOSUB *NEWBULLET
  43. 10420   DEF SPRITE 1,I,(256,240),4
  44. 10430 NEXT
  45. 10440 SPRITE ON:SPRITE SCREEN 1
  46. 10450 FOR I=0 TO BMAX
  47. 10460   SPRITE 0,I,1
  48. 10470 NEXT
  49. 10480 '************ âüâCâôâïü[â`âô
  50. 10490 *MAIN
  51. 10500 '******** Å╞ÅÇé╠Åêù¥
  52. 10510 P=PAD(1)
  53. 10520 MX=MX+MV(P) : IF (MX<0 OR MX>240) THEN MX=MX-MV(P)
  54. 10530 MY=MY+MW(P) : IF (MY<0 OR MY>224) THEN MY=MY-MW(P)
  55. 10540 SPRITE 6,0,MX-SPRITE(0,6),MY-SPRITE(0,7)
  56. 10550 '******** ùUô▒Æeé╠Åêù¥
  57. 10560 FOR I=1 TO BMAX
  58. 10570   IF (BX(I)<-16*SHIFT OR BX(I)>256*SHIFT OR BY(I)<-16*SHIFT OR BY(I)>240*SHIFT) THEN GOSUB *NEWBULLET
  59. 10580   SPRITE 6,I,BX(I)/SHIFT-SPRITE(I,6),BY(I)/SHIFT-SPRITE(I,7)
  60. 10590   SPRITE 1,I,BP(I)*4+4
  61. 10600   BX(I)=BX(I)+BV(I) : BY(I)=BY(I)+BW(I)
  62. 10610   BP(I)=(BP(I)+1) MOD 8
  63. 10620 NEXT
  64. 10630 GOTO *MAIN
  65. 10640 '************ ÉVé╡éóùUô▒Æeé≡Åoî╗é│é╣éΘâTâuâïü[â`âô
  66. 10650 *NEWBULLET
  67. 10660 IF (RND(1)<.5!) THEN 
  68. 10670  BX(I)=RND(1)*272-16
  69. 10680  BY(I)=INT(RND(1)*2)*256-16
  70. 10690 ELSE
  71. 10700  BX(I)=INT(RND(1)*2)*272-16
  72. 10710  BY(I)=RND(1)*256-16
  73. 10720 ENDIF
  74. 10730 BP(I)=1
  75. 10740 '******** ùUô▒Åêù¥
  76. 10750 V=MX-BX(I) : W=MY-BY(I)
  77. 10760 D=INT(SQR(V*V+W*W))
  78. 10770 BV(I)=V*SHIFT/D*BSPEED : BW(I)=W*SHIFT/D*BSPEED
  79. 10780 BX(I)=BX(I)*SHIFT      : BY(I)=BY(I)*SHIFT
  80. 10790 RETURN
  81.